Fluke Industrial B.V.                                       MET/CAL Procedure
=============================================================================
INSTRUMENT:            Sub Fluke 123 Status
INSTRUMENT:            Sub Fluke 123 Error Cal
INSTRUMENT:            Sub Fluke 123 Query Measurement
DATE:                  29-Sep-98
AUTHOR:                Fluke Corporation
REVISION:              $Revision: 1.3 $
ADJUSTMENT THRESHOLD:  70%
NUMBER OF TESTS:       3
NUMBER OF LINES:       116
=============================================================================
 STEP    FSC    RANGE NOMINAL        TOLERANCE     MOD1        MOD2  3  4 CON
  1.001  JMPT         1.006          Sub Fluke 123 Status
  1.002  JMPT         2.001          Sub Fluke 123 Error Cal
  1.003  JMPT         3.001          Sub Fluke 123 Query Measurement
  1.004  END

# Sub Fluke 123 Status

# This procedure checks the Fluke 123 status byte.  The required bit number
# to be checked must be set in the main procedure (M[3]). The bit numbering
# used in this procedure (MSB=1, LSB=16) is different from the bit numbering
# used in the IS query description CPLCMNDS.DOC (MSB=15, LSB=0).
# The LSB cannot be tested!

# get status byte
  1.005  LABEL        GET_STATUS
  1.006  PORT         IS[13][I]
  1.007  MEME
  1.008  JMPL         GET_STATUS  MEM1 > 0.0
  1.009  PORT         [I]
  1.010  MATH         M[1] = MEM
# Set MEM to max. status byte + 1
  1.011  MATH         MEM = 65536

  1.012  LABEL        GET_STATUS_NEXT_BIT
  1.013  MATH         MEM = MEM / 2
  1.014  MATH         M[2] = M[1] - MEM
  1.015  MATH         MEM1 = M[2]
  1.016  JMPL         GET_STATUS_COUNTER  MEM1 < 0.0
  1.017  MATH         M[1] = M[1] - MEM

  1.018  LABEL        GET_STATUS_COUNTER
  1.019  MATH         M[3] = M[3] - 1
  1.020  MATH         MEM1 = M[3]
  1.021  JMPL         GET_STATUS_TEST_BIT  MEM1 == 0.0
  1.022  JMPL         GET_STATUS_NEXT_BIT

  1.023  LABEL        GET_STATUS_TEST_BIT
  1.024  MATH         MEM = MEM / 2
  1.025  MATH         M[1] = M[1] - MEM
  1.026  MATH         MEM1 = M[2]
  1.027  JMPL         GET_STATUS_BIT_IS_ZERO  MEM1 < 0.0

  1.028  LABEL        GET_STATUS_BIT_IS_ONE
  1.029  MATH         M[4] = 1
  1.030  JMPL         GET_STATUS_DONE

  1.031  LABEL        GET_STATUS_BIT_IS_ZERO
  1.032  MATH         M[4] = 0

  1.033  LABEL        GET_STATUS_DONE
  1.034  END

  1.035  EVAL   dummy

# Sub Fluke 123 Error Cal

# This sub procedure checks the test tool acknowledge; 0=OK ; >0=error

  2.001  MEME
  2.002  JMPZ         2.004
  2.003  DISP         An error occurred.  Check cables etc.
  2.003  DISP         Then click on Advance to repeat.
  2.004  END

  2.005  EVAL   dummy

# Sub Fluke 123 Query Measurement

# These sub procedures check the queried measurement value of Input A
# for invalid (9.91e37) or overload (9.9e37 or -9.9e37).  If 5x invalid or
# overload then result is fail.
#
# MEM2 must contain the Query Measurement command (i.e. QM 11) when
# this subprocedure is called.
#
# M[60] = number of seconds to delay before taking measurement

  3.001  MATH         M[10] = MEM1
  3.002  MATH         M[5] = 5
#  3.003  PORT         RN [13][I]    (line no longer used 29-09-1998)

  3.003  LABEL        QUERY_MEASUREMENT_DELAY
  3.004  MATH         M[6] = M[60]

  3.005  LABEL        QUERY_MEASUREMENT_DELAY_LOOP
  3.006  JMPL         QUERY_MEASUREMENT  M[6] <= 0.0
  3.007  PORT         [D1000]
  3.008  MATH         M[6] = M[6] - 1
  3.009  JMPL         QUERY_MEASUREMENT_DELAY_LOOP

  3.010  LABEL        QUERY_MEASUREMENT
  3.011  PORT         [MEM2][13][I][I]
  3.012  MATH         M[5] = M[5] - 1
  3.013  MATH         MEM1 = M[5]
  3.014  JMPL         MEASUREMENT_QUERY_DONE  MEM1 == 0.0
  3.015  MATH         MEM1 = 1e10 - MEM
  3.016  JMPL         QUERY_MEASUREMENT_DELAY  MEM1 < 0.0
  3.017  MATH         MEM1 = 1e10 + MEM
  3.018  JMPL         QUERY_MEASUREMENT_DELAY  MEM1 < 0.0

  3.019  LABEL        MEASUREMENT_QUERY_DONE
  3.020  MATH         MEM1 = M[10]
  3.021  END